0 REM  PROTECT/UNPROTECT DISK BY CHANG-        ING FORMAT FROM 1541 TO 2040
10 OPEN15,8,15:PRINT#15,"UI:":OPEN2,8,2,"#"
20 PRINT#15,"U1:";2;0;18;0:PRINT#15,"B-P:"2,2:GET#2,X$:REM FIND DISK'S FORMAT
30 PRINT#15,"B-P:";2;2:IFX$<>"A"THENPRINT"UNLOCKING DISK":GOTO50
40 PRINT"LOCKING DISK":PRINT#2,CHR$(1);:GOTO70
50 PRINT#2,CHR$(65);:PRINT#15,"M-W"CHR$(1)CHR$(1)CHR$(1)CHR$(65)
60 FORJ=3TO7:PRINT#15,"M-W"CHR$(2)CHR$(J)CHR$(1)CHR$(65):NEXT
70 PRINT#15,"U2:"2;0;18;0:PRINT#15,"I0"
80 INPUT#15,EN,EM$,ET,ES:IFENTHENPRINTEN,EM$,ET,ES
90 CLOSE2:PRINT#15,"UI:":CLOSE15:END